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PROGRAM TITLE: DOLLAR AND CENT OIlTPflT TN COLUMNS 

1, PURPOSE: 

To provide a fast, fixed format, data output on the typewriter in the format 
$ OOOOXXXX.XX or $ XXXX.XX which can be typed in columns with the decimal 
points aligned, 

2, METHOD: 

The subroutine combines the methods of R.P.55T3 and R.P,55T5# It converts 
the positive or negative binary number in the accumulator at b=39 to decimal, 
types a figure shift, a $ sign, leading spaces, a minus sign or a space in- 
stead of the plus sign, up to a significant digits, a decimal point, and the 
two least significant digits of the number. The number is converted accurately 
with no round-off error. 

Examples: 

$ 3572,25 
$ 0.00 
$ 0,95 
$ 93765432,10 
$-987654-32.10 
$ -32,10 

There are options available to type a plus sign instead of the space, to sup- 
press the $ sign, to type leading zeros instead of leading spaces and to select 
the number of digits (including leading zeros or spaces) to be typed, 

3, RESTRICTIONS: 

Don't attempt to use this subroutine for numbers exceeding 8 dollar digits 
(i,e. 10 decimal cent-digits of the original number in the accumulator): 
it would print out the 2 digits after the decimal point correctly, but. would 
print only the 8 most significant digits of the dollar-part. 

4, USAGE: 

4,1 Calling Sequence 

in cents 
OC TRA [Origin of Subroutine] (Number/in Accumulator @ 39) 
RETURN 
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( OC is any left or right non-loop address) 

4. 2 Locations Used 

This program is relocatable* The master tape contains at the end 
the relocating routine and is to he used as the sub-subroutines of 
tt.P.55. The subroutine occupies memory locations origin to origin 
+0037 (octal)* Both L and V loops are also used. 

MODIFICATIONS: 

The original tape is prepared to print a $ sign, spaces instead of lead- 
ing zeros for a total number of 8 dollar-digits, and a space instead of 
the + sign, 

5.1 To ignore leading zeros, change Origin +0030 from +52.5252.1-52.5777.1 
to +77.7777.1+77.7777,1. (The decimal points would not be aligned in 
the column with this modification.) 

5.2 For leading zeros or spaces, change Origin +0030 to: 



N 


Print leading Zeros 


Print leading Spaces 


1 


+77.7777.1+77.7777 ,1 


+77.7777.1+77.7777.1 


2 


+03.7777.1+77.7777.1 


+53.7777.1+77,7777.1 j 


3 


+00.1777.1+77.7777,1 


+52.5777. 1+77*7777.1 j 


4 


+00.0077.1+77.7777.1 


+52.5277.1+77.7777.1 ! 


5 


+00.0003.1+77.7777.1 


+52.5253.1+77.7777.1 


6 


+00,0000.0-77.7777.1 


+52.5252.1-77.7777.1 


7 


+00. 0000,0-03. 7777.1 


+52.5252.1-53.7777.1 


8 


+00.0000.0-00.1777.1 


+52.5252.1-52.5777.1 



In addition, for leading zeros only, change: 

Origin +0004 to +00. (Origin +0034.0) +51.7777.0 
Origin +0005: as outlined below, and in 5.3, 5.5 

and 5.6 
Origin +0006 to +12.7770.1+12,7775.1 
Origin +0037 to +72.0003.0+57. (Origin +0005.1) 

For leading zeros and space instead of + sign, change Origin +0005 to: 
+72.0004.0+72,0011.0 ' 

N equals the total number of dollar-digits to be printed including lead- 
ing zeros or spaces. If, however, the total number of significant 
dollar-digits in the number is greater than N, the complete number is 
printed (up to 8 dollar-digits). One digit before the decimal point is 
always printed. 
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5.3 For + sign instead of space, change 

for leading spaces: Origin +0006 to +72.0021.0+12.7775.1 
for leading zeros: Origin +0005 to +72.0021.0+72.0011.0 
(and the other changes as in 5.2 for leading zeros) 

5.4. To suppress the $ sign, for leading spaces, change 

Origin +0004 to +40. 0000, 0+12. 7770. 1 

5.5 To suppress the $ sign, for leading zeros, with space instead of the 
+ sign, change (in addition to 5.2): 

Origin +0005 to: +72.0004.0+40.0000.0 

5.6 To suppress the $ sign, for leading zeros, with + sign, change (in 
addition to 5.2) : 

Origin +0005 to +72.0021.0+40.0000,0 

5.7 To print octal instead of decimal numbers, change 

Origin +0032 from 10 @ 39 to S @ 39. All other variables 
are controlled the same as the decimal output. 
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ENTER 



0000 
0010 



%L 



SET UP RE- 
TURN RDDRESS 



OOU 



±L 



BRING NUMBER 
<S> 78 



0012. 



3L 



o/vide by 
10 @>3? 



0013 



JUL 



SHIFT INTEGER 
DIGIT INTO 
C 



0015 



^L 



DIVIDE RE' 

MR/NDER BY 

10® 39 



0020 



SHIFT INTEGER 

OIGITINTO 

C 



oozz 



JL 



DIVIDE NEW 
*£| REMAINDER BY 
10® 39 



0022.1 



REMRINDER 
ZERO? 



0023 ^ N0 



STORE 
REMAINDER 



OOR+ 



JL 



REDUCE NUMBER 

OF LEADING 
SPRCES BY I 



OOZf 



±. 



SHIFT INTEGER 

Of GIT INTO 

D 



YES 



DOLL HP RND CENT OUTPUT 
IK1 COLUMNS 

NC-005 



0001. 1 



.& 



SHIFT INTEGER 

DIGIT INTO 

O 



0004 



TYPE # SIGN 



0004. 1 



TYPE LERDING 
SPRCES 



0005 



WRS ORIGINAL \ YES 
WORD NEGRTIVE? 



0006 ^ NO 



TYPE SPRCE 
(OR PLUS SIGN) 



0006.1 



I 



TYPE DOLLRRS 
D 



0007 



TYPE DECIMRL 

POINT RND CENTS 

C 



0031.1 



EXIT 



0037 



TYPE MINUS 
SIGN 
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DOLLAR AND CENT OUTPUT IN COLUMNS 



0000.0 
0001.0 
0002 o 
0003 o 
0004,0 

0005,0 
0006.0 

0007 



+1 C 



,0034,0 
.0010,0 



+57.7760.0 
+43,0000.0 



+4l .004' 

+01 .777! 



,0 
.0 



+60,7775.0 
+7206633,0 

+72,0011,0 
+12,7770.1 

+00.0034,0 
+51 «7777 oO 

+72,0004,0 
+12,7775.1 

+12,7771,1 
+57.777^1 



SAX 
CTL 

TRA 
XAR 

ALS -«-35io 
ADDD 

STOD 
TYC F/S 

TYC $ 

TYW SJeadino 
spaces' 

CLA orig.word 
TMI — >type - 

TYC sp. 

TYW D, dollars 

TYW C, cents 
TRA — ^exit 



0020,0 
0021,0 
0022,0 
0023„0 
0024.0 
0025.0 
0026.0 
OO27.O 



+41.0037.0 
+OI.777I.O 

+60,7771,0 
+30.7773.0 

+22,7772,0 
+50.0001.1 

+60.7774,0 
+OO.777O.O 

+41 .0004.0 
+60,7770,0 

+43.0000.0 
+41.0043.0 

+01 o7775.o 
+4o. 0064.0 

+60.7775.0 
+57«77oi.i 



ALS -* — 31 10 

ADD C 

STO C 

FCA TS' 

DIV 10 @ 39 

TZE done 

STO TS 

CLA S 

ALS «—U 

STO S 



XAR 
ALS 



35 



10 



ADD D 
ARS — *4 

STO D 
TRA 



0010.0 

0011.0 

0012,0 
0013.0 
001 4,0 
0015,0 
0016.0 
0017.0 



+66.OO3O.O 
+OI.777I.O 

+42.7771.1 
+30.7773oO 

+22.7772,0 
+60.7774,0 

+43.0000,0 
+41,0033.0 

+01 .7771 .0 
+60,7771 ,0 

+30-7773*0 
+22.7772,0 

+60,7774.0 
+43.6660.0 

+64.0020.0 
+57«776o.o 



CTV OO3O.O 

ADD 

STA return addr. OO3I .0 
FCA TS* 

DIV 10 @ 39 OO32.O 

STOTS 

XAR OO33.O 

ALS -*- 27io 

ADDC 0034.0 

STOC 

FCATS' 0035,0 

DIV 10 @ 39 

STOTS 0036,0 

XAR 

CTL 0037,0 

TRA 



+52,5252,1 
-52.5777.1 

+60,0074.0 
+57.0000.1 

+00,0000.0 

-00,0005,0 

+00.0000.0 
-00.0000,0 

+00,0000,0 
-00,0000,0 

+03.6000,0 

-00,0000,0 

+74,0000,0 

-00,0000,0 



— c 

TRA exit 



10 @ 39 



TS' 



TS 



D+1 



+72,0003,0 TYC minus sion 
+57,0006.1 TRA 



